home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00001Series_293.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  451 b   |  18 lines
  1. on mouseUp
  2.   put "5" into field "bemodnum"
  3.   put EMPTY into field "comodnum"
  4.   put EMPTY into field "bearingoption"
  5.   if field "whmodnum" = "34" then
  6.     put ".9" into field "comodnum"
  7.     put EMPTY into field "bemodnum"
  8.   end if
  9.   if field "whmodnum" = "35" then
  10.     put ".9" into field "comodnum"
  11.     put EMPTY into field "bemodnum"
  12.   end if
  13.   puppetSound("mainsnd")
  14.   put EMPTY into field "whexmodnum"
  15.   puppetTransition(47, 1, 8)
  16.   VBSEARCH()
  17. end
  18.